home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 July
/
1985-07.d64
/
three toed wheel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
292b
|
11 lines
5 print"[147]"
10 forl=54272to54295:pokel,0:next:poke54296,15
20 poke54277,8:poke54278,255:poke54276,21
30 forz=1to4:f1=20:rem no. of cycles
40 fory=1to3:f2=100:rem no. of increments
50 poke54273,f1:rem voice one frequency
60 forx=1to5:poke54287,f2:rem speed
70 f1=f1*1.05:f2=f2*.1:rem harmonic content
80 nextx:nexty:nextz:poke54278,15
90 list